home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.xxx'array < prev    next >
Text File  |  2007-03-01  |  856b  |  31 lines
  1. 0010 ╨╥╧├ XXX'ARRAY(TYPE,╥┼╞ VALUES(,),╥┼╞ SCALE(,),╥┼╞ LABELS$()) ├╠╧╙┼─
  2. 0020   // *** ALTER NAME THEN ENTER DATA
  3. 0030   // CALLS GRAPH UNLESS TYPE:=0
  4. 0040   ╔═╨╧╥╘ GRAPH
  5. 0050   // SET UP SCALE(,)
  6. 0060   ╞╧╥ K:=1 ╘╧ 3 ─╧
  7. 0070     ╥┼┴─ SCALE(K,1)
  8. 0080     ╥┼┴─ SCALE(K,2)
  9. 0090   ┼╬─╞╧╥ K
  10. 0100   // XST:YST  XEND:YEND  XNUM:YNUM
  11. 0110   ─┴╘┴ 0,0,0,0,0,0
  12. 0120   // SET UP VALUES(,)
  13. 0130   NUM:=0
  14. 0140   ╥┼╨┼┴╘ 
  15. 0150     NUM:+1
  16. 0160     ╥┼┴─ VALUES(NUM,1)
  17. 0170     ╥┼┴─ VALUES(NUM,2)
  18. 0180   ╒╬╘╔╠ ┼╧─
  19. 0190   VALUES(0,1):=NUM
  20. 0200   VALUES(0,2):=1 //:=0 WITHOUT GRID
  21. 0210   // (1,1),(1,2).....(NUM,1),(NUM,2)
  22. 0220   ─┴╘┴ 0,0,0,0,0,0
  23. 0230   ─┴╘┴ 0,0,0,0,0,0
  24. 0240   // SET UP LABELS$()
  25. 0250   LABELS$(0):="" // TITLE
  26. 0260   LABELS$(1):="X="
  27. 0270   LABELS$(2):="Y="
  28. 0280   ╔╞ TYPE<>0 ╘╚┼╬ GRAPH(TYPE,VALUES(,),SCALE(,),LABELS$()) // CALL GRAPH
  29. 0290 ┼╬─╨╥╧├ 
  30. 0300 
  31.